home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 February / 64er_Magazin_89-02_1989_Markt__Technik_de_Disk_2_of_2_Side_B.d64 / sdz nlq (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  527b  |  16 lines
  1. 10 open 1,4
  2. 20 print#1,chr$(27);chr$(120);"1";:rem nlq ein
  3. 30 print#1,chr$(27);":";chr$(0);chr$(0);chr$(0);:rem rom-zeichensatz in ram laden
  4. 40 print#1,chr$(27);"&";chr$(0);"!!";:rem neue zeichen von a bis a
  5. 50 for i =1 to 47
  6. 60 :  readx
  7. 70 :  print#1,chr$(x);
  8. 80 next i
  9. 90 print#1,chr$(27);"%1";:rem ram-zeichensatz einschalten
  10. 100 print#1,"statt einen ausrufe-zeichen"
  11. 110 print#1,"erhaelt man 1/2 : !!! !!!"
  12. 120 close 1
  13. 200 data 128:rem attribut: keine unterlaenge
  14. 210 data 17,64,18,224,20,0,24,0,16,9,32,1,66,1,132,9,0,0,0,0,0,0,0: rem 1.
  15. 220 data 0,2,128,100,0,8,0,16,0,32,16,66,16,132,16,8,0,0,0,0,0,0,0: rem 2.
  16.